ccccccccccce Lk IIIIII11 UUU UUU TTTTTTTTTTTTTTT CLt 
cccccccccccc LLL III1I111 UUU UUU TTTTTTTTTTTTTTT LLet 
cceccccccccce =k HII UUU UUU TITTTTTTITTTITTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] U UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU UUU TTT LLL 

ccc LLL I]] UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL I}] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL II] UUU UUU TTT LLL 

ccc LLL IJ] UUU UUU TTT LLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LELLLLLELLLELLLL 
CCCCCCCCCCCC LLL LLLLLLLLLLLL HIIIII11 UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
CCCCCCCCCCCC LLLLLLLLLLLLLLL HII UUUUUUUUUUUUUUU TTT LLELLLLLLLLLLLLL 
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NN UUUUUUUUUU 
NN UUUUUUUUUU 


LLLLLLLLLL 
LLLLLLLLLL 


CVO YVUYUVYUYY 
ee ek eae 


LLLLLLLLLL 
LLLLLLLLLL 
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‘woteboo SrEE CSRS SS: 72:95 PORTE Basse vets ee ans OM ad) 
TITLE CNVCLINUM = CONVERT ASCII TO BINARY 
| "Ibent Syoctoope | 


SHKSKAA AKA KSSKE KAA AAAAAAAAARAAAAAARAAAAAAAAAAAAATAARAAREAAAAAAEEAEEAAAAAEAETES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
ONLY IN ACCORDANCE WITH THE yenes OF SUCH bicee NSE ~~. ae THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


-@ 

© ® 
® a 
® + 
t ® 
fe & 
® & 
e ® 
e ® 
® ® 
© i 
* TRANSFERRED. ‘ 
& ® 
i ® 
® * 
® * 
® ® 
® ® 
® tt 
o ® 
® * 
a ® 


oS Se es 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeePOkat ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIB 


IBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS N 


ITY 
NOT SUPPLIED BY DIGITAL. 


SSSsssssss 


LARA RAAAARAAAALALAAAAA ALLA AEE LALLA ATER REE RETESET ERE RE EERE RRR RESET ES 


+ 
FACILITY: RUN-DETACHED CLI UTILITY 
ABSTRACT: 


THIS ROUTINE CONVERTS AN AS — 


CI! $s TO BINARY USING THE RADIX SPECI- 
FIED BY THE USER (OCTAL, DECIMAL O I L) 


Ic 
HEX 


Sooooooooooooooocooao 


SSsssssss 
OoOoooooooa 


101 + T. Halvorsen 27-Jun-1979 
Change PSECT name to avoid conflicting psects with RTL 


00 ENVIRONMENT: USER MODE 
0900 AUTHOR: C. A. MONIA , CREATION DATE: 15-AUG-1977 
44 MODIFIED BY: 
ae 01 23 VERSION 
00 


NOAA WN SO OD NAUE WIN $$ SODA NE WN 3 OS OO NA NEW OOONOAOUS Wi 


Sete Ge Ge Ge Ge Ge Ge Se Se Ge Se Ge Ge Se Ge Se Ge Ge Ge 
+ 


Po wt ot of of ot ot 


Ss 
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v04 gree Sbs SETS 88 LORIE Secs) VOF OS marst 


DECLARATIONS ~ 
4 «SBTTL DECLARATIONS 


: INCLUDE FILES 


if 5 SCLIMSGDEF : DEFINE CLI ERROR CODES 
00 a SSSDEF : DEFINE SYSTEM STATUS CODES 
At 8 

60 + MACROS 


64 ; BUILD DISPATCH TABLE FOR CASE INSTRUCTION 


6 
64 
65 MACRO CASE ,SRC,DISPLIST, TYPE=W,BASE=#0 ,NMODE=S*#, 2START, 2MAX 
66 CASE ' TYPE SRC, BASE ,NMODE '<<MAX-START>/2>-1 
67 START: 
65 -IRP ss EP, <DISPLIST> 
69 [WORD EP=START 
0 ENDR 
q ~ ENDM 
a 


7%; 
ie 3 DEFINE DATA STRUCTURE 


7? 
7? «MACRO $DSECT 
7 obec’ SABSS,ABS 


> EQUATED SYMBOLS: 
: OFFSET TO LOCAL VARIABLE FOR NUMERIC RESULT 


FFFFFFFC 


RE SUL T =-4 3 


{ARGUMENT OFFSETS 


3 SOSECT 
$8 $$$-. 
-BLKL 1 3 ARGUMENT COUNT 
: STRNG: .BLKL 1 : ADDRESS A ASCII STRING DESCRIPT 
, p 39 VALUE: -BLKL 1 : ADDRESS TO RECEIVE CONVERTED VAL 
1 
' gi OWN STORAGE : 
: <3 CONVERSION RADIX SPECIFIERS 


- CONVERT ASCII TO BINARY 


~ 


a a et ed at at = = ts 3 2 ss 8 bs SS 1 — — 9 ss os 


-PSECT CNVCLINUM,EXE,RD,NOWRT 


CVRAD 3 

eASCII /0/ 3; DECIMAL RADIX 

eASCII /0/ 3 OCTAL RADIX 

eASCII = /X/ 3 HEXADECIMAL RADIX 
CVRADSIZ=.-CVRAD : SIZE OF RADIX SPECIFIER TABLE 


; ASCII TO BINARY CONVERSION DISPATCH TABLE 


ABL: 

«WORD LIBSCVTCLIHTB-LIBSCVTCLIOTB 3; CONVERT HEX TO BINARY 

eWORD LIBSCVTCLIOTB-LIBSCVTCLIDTB 3 CONVERT OCTAL TO BINARY 

-WORD LIBSCVTCLIDTB-LIBSCVTCLIDTB 3; CONVERT DECIMAL TO BINARY 
+ 
LIBSCVT_DECBIN = CONVERT NUMERIC STRING TO BINARY (ASSUMES DECIMAL DEFAULT) 
LIBSCVT_OCTBIN = CONVERT NUMERIC STRING TO BINARY (ASSUMES OCTAL DEFAULT) 
LIBSCVT_HEXBIN CLI CONVERT NUMERIC STRING TO BINARY (ASSUMES HEX. DEFAULT) 
THESE PROCEDURES ARE CALLED TO CONVERT AN ASCII NUMERIC STRING TO BINARY. THE 
CONVERSION RADIX IS IMPLIED OR CAN BE EXPLICITELY SPECIFIED IN THE STRING 


AS FOLLOWS: 
NO RADIX SPECIFICATION = AS DETERMINED BY ENTRY POINT 
STRING TERMINATED BY DECIMAL POINT = DECIMAL RADIX 
2D PREFIX = DECIMAL RADIX 
206 PREFIX = OCTAL RADIX 
2X PREFIX = HEXADECIMAL PREFIX 
THE RECTAL POINT IS ILLEGAL IF USED IN CONJUNCTION WITH OTHER RADIX SPECI- 


CALLING SEQUENCE: 
CALL LIBSCVT_XXX (DESCRE,VALUE]) 


INPUT PARAMETERS: 
DESCR = QUADWORD STRING DESCRIPTOR OF THE STRING TO BE CONVERTED 
VALUE = OPTIONAL LONGWORD TO RECEIVE THE RESULT 
OUTPUTS: 
RO = CLIS_NORMAL, SUCCESS 
R1 = CONVERTED VALUE 


RSEe=158e S87398 LECTURE. SRESEMveCiNUMman:1 88 dy 


coye NUM CII TO BINARY 2% 15S o- 138% 63:72:08 yenivos Macro Vv04-00 Page 


=D 
2> 
nm 


T 
I 4-SEP=1 CLIUTL.SRCJCNVCLINUM.MAR; 1 
9 163 : THE CONVERTED VALUE IS RETURNED TO THE RESULT ARGUMENT (IF 
} 4 3 SPECIFIED). 
9 1 $ ; RO = CLIS_IVCHAR, INVALID CHARACTER IN NUMERIC STRING 
; RO = CLIS“NUMBER, INCORRECT NUMERIC FORMAT 
3 : 3 ONE OF THE FOLLOWING ERROR CONDITIONS HAS BEEN DETECTED: 
9 171; ILLEGAL RADIX SPECIFIER 
9 176 8 ILLEGAL 
; 7 ; DECIMAL POINT INCLUDED WITH RADIX SPECIFIER 
O03 148 i 
809 13 -ENABL LSB 
8 
009 180 LIBSCVT_DECBIN:: ; 
007¢ 009 181 «WORD “M<R2,R3,R4,R5,R6> + SAVE R2 = R6 
50 03 pO 0008 1 é MOVL #3,RO : SET FOR DEFAULT DECIMAL CONVERSION 
0C 11 OOOF 1 BRB 5$ : 
er: 
0010 (1 6 : CONVERT TO BINARY WITH OCTAL AS DEFAULT 
9010188 
0010 189 LIBSCVT_OCTBIN:: : 
007¢ 0010 190 «WORD  “M<R2,R3,R4,R5,R6> : SAVE R2 = R6 
50 02 D6 0012 «191 MOV #2,R0 :°SET FOR DEFAULT OCTAL CONVERSION 
05 11 001 198 BRB 5$ ; 
gt ig 
017 195 : CONVERT TO BINARY WITH HEXADECIMAL AS DEFAULT 
Br 
gate 198 LIBSCVT_HEXBIN:: 3 
007¢ 0017 199 WORD scR2 JR3,R4 RS .R6> ; SAVE R2 - R6 
50 01 DO O19 00 - MOVL = #1, R :°SET FOR DEFAULT HEX CONVERSION 
52 04 As 7D ol 0¢ ‘ MOVQ a@STRNG(AP),R2 : GET COUNT AND ADDRESS OF STRING 
52 3¢ MOVZWL Re R2 : EXTEND BYTE COUNT 
3 1 00 4 BEQL 208 : IF EQL, NULL FIELD 
D4 5 CLRL RS : ASSUME POSITIVE VALUE RETURNED 
28 5 74 6 CMPB 40s (R3) , #*A/4/ : PLUS SIGN SPECIFIED? 
1 A BEQL «=s7$ : IF EQL YES 
2 63 «91 c 3 CMPB Ss (R3) , #*A/=/ : NEGATION SPECIFIED? 
03 12 F BNEQ 9% : IF NEQ NO 
D 1 19 og DECL = RS : SET SIGN SPECIFIER NEGATIVE 
3 6 i i INCL R $ STRIP SIGN FROM STRING 
D 1 DECL «sR een 
A 13 Z 1 a BEG 208 : IF EQL, NULL RESULT 
25 63 1 9 if : CMPB ss (R3) , #*A/2/ : RADIX SPECIFIED? 
: 1 C 31 BEQL =: 108 : IF EQL YES 
2— FF A342 «(97 ; 18 CMPB 40s = 1 (R3) (R29, #*A/./ : STRING TERMINATED IN DECIMAL POINT? 
1E 12 004 1 BNEQ 208 : IF NEQ NO ASSUME DEFAULT 
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v04 DECLARATIONS arse EBS 88:78:95 FOMUTE Sacse vets nanss 2M Gf, 
50 D9 45 0 MOVL  #3,R0 : SET acini th RADIX 
3 8 4 DECW OR : TRUNCATE STRING TO REMOVE DECIMAL POINT 
1 ry 108 BRB 20$ 8 
D 4C 4 INCL R : POINT PAST RADIX SPECIFIER 
A 4 5 SUBW = #2, R2 $ STRIP RADIX SPECIFIER FROM STRING 
F 3 6 BLSSU : IF LSSU ERROR 
AB AF A LOCC (R3)+,MCVRADSIZ,CVRAD : SCAN RADIX SPECIFIERS 
2 8 - BNEG 208 : IF NEQ HAVE MATCH 
000380E8 - b9 4 MOVL #CLIS_NUMBER,RO + ASSUME SYNTAX ERROR 
ae BRB 4 : TAKE ERROR EXIT 
50 QA AF4O 3 6 CVTWL TAB « 2CR0),R0 + GET ADDRESS OF ENTRY POINT OFFSET 
00000000" EF 40 1 4 SB LIBSCy CVTCLIOTBCROJ : ENTER CONVERSION ROUTINE 
1450 € F 5 pi BLBC Oia : IF LBC, ERROR 
55 DS 73 $ TSTL «= RS : TEST SIGN FLAG 
03 +18 007 3 BGEG 460s «-35$ : IF GEQ, RETURN RESULT UNCHANGED 
51 51 CE 076 oo MNEGL R1,R1 : NEGATE RESUL 
02 6C 91 0079 341 CMPBs«CAP) , #2 : ENOUGH ARGUMENTS SUPPLIED? 
08 iF oO07¢ 4g BLSSU : IF LSSU 
08 AC Dp O7E 24 PUSHL VALUECAP) + PUSH ADDRESS TO RECEIVE RESULT 
03 13 0081 244 BEQL = 4 : 1 
9 51 00 085 45 MOVL R1,a(SP)+ : RETURN RESULT 
086 46 40S: ; 
04 0086 4 RET : 
08 48 
0087 249 END 
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the working s ort Limit was 900 pages 
28602 bytes (56 pages) of virtua memory were used to buffer the intermediate goge 
There were 30 pages of symbol table 1 *Pace Pit d to hold 573 non-local ge? Local symbols. 
* source lines were read in Pass 1, producin object records in Pass 
1 pages of virtual memory were used to Setine™ 10 macros. 


Symbol table CLIUTL. sR Seny VCLINUM.MAR; 1 | 
$$ = 0 
CLIS_ NUMBER = 
CVR R 02 
CVRADSIZ = 
LIBSCVTCLIDTB eeeceree =X 
LIBSCVTCLINTB eerereee 
LIBSCVTCLIOTB eteereee 
LIBSCVT_DECBIN 99 RG 
LIBSCVT_HEXBIN RG 
LIBSCVT“OCTBIN 10 RG 
HF 4 = FFFFFFFC 
STR 008 4 
TABL ; R 02 
VALUE 000 
Gecesucuscsesceant} 
» Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < } oF 0.) NOPIC USR CON ABS LCL NO oo NOEXE NORD NOWRT NOVEC BYTE 
SABSS QO00000C < } ‘ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
CNVCLINUM 00000087 ¢ 135: 2.) NOPIC USR CON REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
Gowwooeceeoecooccceccecce 
; Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 10 0:00:00.07 0:0 0 23 
gounens processing obs :00:00. $ 0:0 ¢ 8 
Symbol table sort :00:00.85 :00:0 63 
Symbol table output a : 18 9:00:08 5 
a utpu 7:00:00. 7:00:00. 
Psect synopsis output ; 00: 93 0:00: 0.0 
Cross-reference output 8 0:00:00. 0:00: 3-8 
Assembler run totals 38 00:00:08.44 0:00:29. 
| 
| 
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INUM 
VAX=- cro Run Statistics -SEP- $ LIUTL. NVCL MAR; 
11 Ma Run Statisti 46-SEP-1984 t 33 215 14 te IUTL.SRCICNVCLINUM.MAR; 1 (1) 


powenreeaeecoaconeenenraseocoocet 


! Macro Library statistics ! 


tomer mean aera aemams eeunemec} 


Macro Library name Macros defined 


SSDUA ae:ts cLiuTL. OBJ ICLIUT -MLB;1 
satis. MLB 
aS OU Fever ies STARLET. Sila: 2 
732588 (all libraries) 


There were no errors, warnings or information messages. 


i] 
| 
! 
j 
631 GETS were required to define 5 macros. 
MACRO/LIS=LIS$:CNVCLINUM/OBJ=0BJ$:CNVCLINUM MSRC$:CNVCLINUM/UPDATE=(ENHS$: CNVCLINUM) +EXECML$/LIB+LIB$:CLIUTL/LIB 
| 
| 
| 


004' AH-BT13A-SE 7 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY | 


F 
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